Compare file at point with file FILE using `diff'.
FILE defaults to the file at the mark.
The prompted-for file is the first file given to `diff'.
Prefix arg lets you edit the diff switches. See the command `diff'." (byte-code "└ ¡èè└ bê┴┬ë\")─┼╞┴┬!½å╟╚Q¬ü╔#╩ ┬$╦╠!¡â╠═!)Dç" [mark dired-get-filename t default read-file-name format "Diff %s with: %s" "(default " ") " "" dired-current-directory fboundp diff-read-switches "Options for diff: "] 7)])
(fset 'dired-backup-diff #[(&optional switches) "└ë┴ ┼\n!½ê\n╞\n!¬î╟\n!«ä╚╔\n\"\n\n½ê╦\n#¬ä╦\"+ç" [nil dired-get-filename file ori bak backup-file-name-p file-name-sans-versions latest-backup-file error "No backup found for %s" switches diff] 4 "\
Diff this file with its backup file or vice versa.
Uses the latest backup, if there are several numerical backups.
If this file is a backup, diff it with its original.
The backup file is the first file given to `diff'.
Prefix arg lets you edit the diff switches. See the command `diff'." (byte-code "└┴!¡â┴┬!Cç" [fboundp diff-read-switches "Diff with switches: "] 2)])
Load the marked (or next ARG) Emacs lisp files." "P"])
(fset 'dired-do-chxxx #[(attribute-name program op-symbol arg) "└┴\n\"─┼╟Q╚ \n%\n╠\nQ╬╧\n%╤\n!ê¡ç╥╙╘\"!,ç" [dired-mark-get-files t arg files dired-mark-read-string "Change " attribute-name " of %s to: " nil op-symbol new-attribute program " " operation apply dired-check-process failure dired-do-redisplay dired-log-summary message "%s: error - type W to see why."] 6])
(fset 'dired-unflag-all-files #[(flag &optional arg) "└ G└U½â\n¬à├─ !Pè╟ëë╚ \nebê═╟╬#½₧½ë╨╩╤╥╬!#½î╙╘!ê╒cêT╓yê¬[-╫╪┘┌ #\"*ç" [0 flag dired-re-mark "^" regexp-quote re count nil "Type SPC or `y' to unflag one file, DEL or `n' to skip to next,\n`!' to unflag all remaining files with no more questions." help-form query case-fold-search buffer-read-only re-search-forward t arg dired-query "Unflag file `%s' ? " dired-get-filename delete-char -1 " " 1 message "%s" format "Flags removed: %d %s"] 6 "\
Remove a specific or all flags from every file.
With an arg, queries for each marked file.
Type \\[help-command] at that time for help." "sRemove flag: (default: all flags) \nP"])
Mark all files matching REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.
REGEXP is an Emacs regexp, not a shell wildcard. Thus, use `\\.o$' for
object files--just `.o' will mark more than you might think." (byte-code "└ ½â┬¬ü├─P! ¡ü┼Dç" [dired-read-regexp current-prefix-arg "Unmark" "Mark" " files (regexp): " 32] 3)])
Symlink all marked files containing REGEXP to NEWNAME.
See function `dired-rename-regexp' for more info." (dired-mark-read-regexp "SymLink")])
(byte-code "└┴Mê┬├Mç" [dired-create-files-non-directory #[(file-creator basename-constructor operation arg) "└┬┼└\"╟%)ç" [nil rename-non-directory-query dired-create-files file-creator operation dired-mark-get-files arg #[(from) "└ !\n├ !!P┼╞ùù#╔╩╦P╠ !╠!$)¡ü)ç" [file-name-directory from basename-constructor file-name-nondirectory to format "Type SPC or `y' to %s one file, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." operation help-form dired-query rename-non-directory-query " `%s' to `%s'" dired-make-relative] 6] dired-keep-marker-move] 6] dired-rename-non-directory #[(basename-constructor operation arg) "└┴\n$ç" [dired-create-files-non-directory dired-rename-file basename-constructor operation arg] 5]] 2)
Goto end of header line of DIR in this dired buffer.
Return value of point on success, otherwise return nil.
The next char is either \\n, or \\r if DIR is hidden." (byte-code "└┴┬─┼╞ %!C╟ êç" [expand-file-name completing-read "Goto in situ directory: " dired-subdir-alist nil t dired-current-directory push-mark] 7)])
(fset 'dired-goto-file #[(file) "└ !┬ëè┼╞ !«ä╟╚ \"!½º╔ !╩ ¼Ü═╬P╧#½Å╨╤╥\"ܽi╙ ë½f*)¡éb*ç" [directory-file-name file nil case-fold-search found dired-goto-subdir file-name-directory error "Need absolute pathname for %s" file-name-nondirectory dired-subdir-max boundary base search-forward " " move dired-get-filename no-dir t dired-move-to-filename] 5 "\
Goto file line of FILE in this dired buffer." (byte-code "└┴┬├ \"!C─ êç" [expand-file-name read-file-name "Goto file: " dired-current-directory push-mark] 4)])
(byte-code "└┴Mê┬├Mç" [dired-initial-position #[(dirname) "└ê ¡é┬ ç" [nil dired-trivial-filenames dired-goto-next-nontrivial-file] 1] dired-subdir-index #[(dir) "└┴\n½û@@ÿ½å└╟¬oAT¬g¡ü+ç" [nil 0 dired-subdir-alist alist index found dir t] 3]] 2)
When called interactively and not on a subdir line, go to this subdir's line." (byte-code "½à┴!¬ê┬ ½â├¬ü─Cç" [current-prefix-arg prefix-numeric-value dired-get-subdir 1 0] 2)])
(fset 'dired-tree-up #[(arg) "└ \n├Y½ï\nS─┼ !!¬p╞ !«ä╟╚ \")ç" [dired-current-directory dir arg 1 file-name-directory directory-file-name dired-goto-subdir error "Cannot go up to %s - not in this tree."] 3 "\
Insert this subdirectory into the same dired buffer.
If it is already present, just move to it (type \\[dired-do-redisplay] to refresh),
else inserts it at its natural place (as ls -lR would have done).
With a prefix arg, you may edit the ls switches used for this listing.
You can add `R' to the switches to expand the whole tree starting at
this subdirectory.
This function takes some pains to conform to ls -lR output." (byte-code "└ ¡ä┬├\"Dç" [dired-get-filename current-prefix-arg read-string "Switches for listing: " dired-actual-switches] 4)])
Insert this subdirectory into the same dired buffer.
If it is already present, overwrites previous entry,
else inserts it at its natural place (as ls -lR would have done).
With a prefix arg, you may edit the ls switches used for this listing.
You can add `R' to the switches to expand the whole tree starting at
this subdirectory.
This function takes some pains to conform to ls -lR output." (byte-code "└ ¡ä┬├\"Dç" [dired-get-filename current-prefix-arg read-string "Switches for listing: " dired-actual-switches] 4)])
(byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mç" [dired-insert-subdir-validate #[(dirname &optional switches) "└ \n\"¼à├─ \"ê¡ê╞╚╔╩\")ç" [dired-in-this-tree dirname default-directory error "%s: not in this directory tree" switches nil case-fold-search mapcar #[(x) "└ \n\"?└ \"?=«ä─┼ \"ç" [string-match x switches dired-actual-switches error "Can't have dirs with and without -%s switches together"] 4] ("F" "b")] 3] dired-kill-tree #[(dirname &optional remember-marks) "┴ë½á@@Aÿ¼q╞\"½k╟!½f╚ !\nñ¬]\n+ç" [dired-subdir-alist nil m-alist dir s-alist dirname dired-in-this-tree dired-goto-subdir dired-kill-subdir remember-marks] 3 nil "DKill tree below directory: "] dired-insert-subdir-newpos #[(new-dir) "┴ëëë½í@A@╟!╚ \"½e╩!┴ë¼_\nbê-m¼â╦yê╠cê`ç" [dired-subdir-alist nil new-pos pos dir elt alist dired-get-subdir-min dired-tree-lessp new-dir dired-get-subdir-max -1 "\n"] 6] dired-insert-subdir-del #[(element) "└ !ëbê├ bêm¼â─uê┼\n`\"\n`|ê)ç" [dired-get-subdir-min element begin-marker dired-subdir-max -1 dired-remember-marks] 4] dired-insert-subdir-doinsert #[(dirname switches) "`└├─\"ê«å╟╚╔\n#\n╦!@@ܽç═!ê¬ê╧\n└╨$ê)├╤\"ê╥ ╙\n ╘#ê\nbê╒!ê\n╓ !D └ëôê*ç" [nil end begin message "Reading directory %s..." dirname switches dired-replace-in-string "R" "" dired-actual-switches reverse dired-subdir-alist dired-readin-insert dired-directory dired-ls t "Reading directory %s...done" point-marker indent-rigidly 2 dired-insert-headerline marker-position] 5] dired-insert-subdir-doupdate #[(dirname elt beg-end) "½è┴!┬ ├ôê¬å─┬ \"ê¡Üè@A@ë bêî }ê╩╞!,ç" [elt dired-get-subdir-min point-marker nil dired-alist-add dirname dired-after-readin-hook beg-end end begin run-hooks] 4] dired-tree-lessp #[(dir1 dir2) "└ !└\n!├─ \"├─\n\"½ò½Æ@@ܽèAA¬g@@ë½ï½çÖ¬£¼ç¼â╔¬æ¼â╩¬è¼â╔¬â╦╠!,ç" [file-name-as-directory dir1 dir2 dired-split "/" components-2 components-1 c2 c1 nil t error "This can't happen"] 5]] 2)
(fset 'dired-split #[(pat str &optional limit) "└ \n\"\n─OC╞¡é─òë½¼ ¿½ç W½á└ \n#½ÿ─öT\nOB─òë¬T ¿½ç W½î½ê\n╩OBƒ,ç" [string-match pat str start 0 result 1 count end limit nil] 5 "\
Splitting on regexp PAT, turn string STR into a list of substrings.
Optional third arg LIMIT (>= 1) is a limit to the length of the
resulting list.
Thus, if SEP is a regexp that only matches itself,